30 PRINT "BY NOW YOU'VE NOTICED THAT ";:X$ = "CAPS ON": GOSUB 1000: PRINT " IS THE DEFAULT FOR FLEX TYPE."
35 PRINT
40 PRINT "HOWEVER, TO CHANGE THE DEFAULT TO ";:X$ = "CAPS OFF": GOSUB 1000: PRINT " ALL YOU NEED TO DO IS TYPE": PRINT "CONTROL-A."
45 PRINT : PRINT "wasn't that easy!": PRINT
50 PRINT "Oh yes. You can capitalize any letter by typing": PRINT "another Control-A. (Or use your shift key if you have made the": PRINT "SHIFT KEY MODIFICATION to your Apple.)"
55 PRINT : PRINT "AND TO CHANGE THE DEFAULT BACK TO ";:X$ = "CAPS ON": GOSUB 1000: PRINT " TYPE TWO CONSECUTIVE": PRINT "CONTROL-A'S."
60 END
1000 REM UNDERSCORE ROUTINE
1010 PRINT O$;: FOR I = 1 TO LEN(X$): PRINT MID$ (X$,I,1);H$;Z$;"O";: NEXT : PRINT O$;: RETURN